perm filename TES[JC,MUS] blob sn#072346 filedate 1973-11-15 generic text, type T, neo UTF8
00050	ARRAY F1,F2(512);
00100	SRATE←25000;
00200	MAG←512/SRATE;
00300	COMPILE;INSTRUMENT FOO;
00400	INTRP(P5*P6*MAG,P5*P7*MAG,F2);
00500	OSCIL(U1,P5*MAG,F1);
00600	ZOSCIL(P3,P4*MAG+U2,F1);
00700	OUTA←OUTA+U3;END;FINISH;
00800	SYNTH(F1);1,1,999
00900	SEG(F2);0,1,1,100
01000	<RCDFLG←-1;
01050	BIGBIT←1;
01100	PLAY;FOO 0 1 2000 100 100 0 10;FINISH;